Profile of (eval 263)[Sub/Quote.pm:3]

Filename	(eval 263)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 243 statements in 803µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
62	7	3	292µs	594µs	JSON::Schema::Modern::Document::canonical_uri
1	1	1	15µs	74µs	JSON::Schema::Modern::Document::BEGIN@8
1	1	1	10µs	44µs	Method::Generate::Accessor::_Generated::BEGIN@44.114
1	1	1	7µs	7µs	Method::Generate::Accessor::_Generated::BEGIN@13.113

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	2µs			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4	1	1µs			my $default_for_canonical_5furi = ${$_[1]->{"\$default_for_canonical_5furi"}};
5	1	0s			my $coerce_for_canonical_5furi = ${$_[1]->{"\$coerce_for_canonical_5furi"}};
6	1	0s			my $isa_check_for_canonical_5furi = ${$_[1]->{"\$isa_check_for_canonical_5furi"}};
7					package JSON::Schema::Modern::Document;
8	2	96µs	2	133µs	# spent 74µs (15+59) within JSON::Schema::Modern::Document::BEGIN@8 which was called: # once (15µs+59µs) by Sub::Quote::_clean_eval at line 8 no warnings 'closure'; # spent 74µs making 1 call to JSON::Schema::Modern::Document::BEGIN@8 # spent 59µs making 1 call to warnings::unimport
9					# spent 594µs (292+302) within JSON::Schema::Modern::Document::canonical_uri which was called 62 times, avg 10µs/call: # 15 times (206µs+302µs) by JSON::Schema::Modern::Document::BUILD at line 145 of JSON/Schema/Modern/Document.pm, avg 34µs/call # 15 times (47µs+0s) by JSON::Schema::Modern::Document::BUILD at line 168 of JSON/Schema/Modern/Document.pm, avg 3µs/call # 14 times (12µs+0s) by JSON::Schema::Modern::Document::traverse at line 178 of JSON/Schema/Modern/Document.pm, avg 857ns/call # 8 times (18µs+0s) by JSON::Schema::Modern::add_schema at line 188 of JSON/Schema/Modern.pm, avg 2µs/call # 8 times (5µs+0s) by JSON::Schema::Modern::add_schema at line 196 of JSON/Schema/Modern.pm, avg 625ns/call # once (3µs+0s) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 76 of JSON/Schema/Modern/Document/OpenAPI.pm # once (1µs+0s) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 115 of JSON/Schema/Modern/Document/OpenAPI.pm sub canonical_uri {
10					($_QUOTED,$_UNQUOTED) if 0;
11					# BEGIN quote_sub PRELUDE
12					package Method::Generate::Accessor::_Generated;
13					# spent 7µs within Method::Generate::Accessor::_Generated::BEGIN@13.113 which was called: # once (7µs+0s) by Sub::Quote::_clean_eval at line 18 BEGIN {
14	1	1µs			$^H = 1762;
15	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
16	1	5µs			%^H = (
17					);
18	1	177µs	1	7µs	} # spent 7µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@13.113
19					# END quote_sub PRELUDE
20	62	23µs			Carp::croak("canonical_uri is a read-only accessor") if @_ > 1;
21					exists $_[0]->{"canonical_uri"} ?
22					$_[0]->{"canonical_uri"}
23	62	176µs			: do {
24	8	4µs			my $value = do {
25	8	26µs			local $Method::Generate::Accessor::CurrentAttribute = {
26					init_arg => undef(),
27					name => "canonical_uri",
28					step => "coercion",
29					};
30	8	8µs			(my $_return),
31					(my $_error), (my $_old_error = $@);
32	8	8µs			(eval {
33	8	31µs	16	281µs	($@ = $_old_error), # spent 185µs making 8 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:39], avg 23µs/call # spent 96µs making 8 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:38], avg 12µs/call
34					($_return =
35					$coerce_for_canonical_5furi->($default_for_canonical_5furi->($_[0]))),
36					1
37					} or
38					$_error = CORE::ref $@ ? $@ : "coercion for \"canonical_uri\" failed: ".$@);
39	8	3µs			($@ = $_old_error),
40					(defined $_error and CORE::die $_error);
41	8	10µs			$_return;
42					}
43					;
44	42	217µs	26	99µs	# spent 44µs (10+34) within Method::Generate::Accessor::_Generated::BEGIN@44.114 which was called: # once (10µs+34µs) by Sub::Quote::_clean_eval at line 44 do { no warnings "void"; package Type::Tiny; ((((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) && (do { local $_ = $value; not defined $_->fragment }))) or Type::Tiny::_failed_check($isa_check_for_canonical_5furi, "__ANON__", $value, "attribute_name","canonical_uri","attribute_step","isa check","mgaca","0","varname","\$self->{\"canonical_uri\"}"); $value }; # spent 44µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@44.114 # spent 34µs making 1 call to warnings::unimport # spent 15µs making 8 calls to Mojo::URL::fragment, avg 2µs/call # spent 5µs making 8 calls to Scalar::Util::blessed, avg 625ns/call # spent 1µs making 8 calls to UNIVERSAL::isa, avg 125ns/call
45	8	5µs			$_[0]->{"canonical_uri"} = $value
46					}
47					}
48	1	1µs			$$_UNQUOTED = \&canonical_uri;
49					}
50	1	8µs			1;
51
52					;